5     REM *** SCREENS DATA C ***
10 REM LOAD AND RUN SCREENS DATA A FIRST: PERMANENT ML BEGINS AT 53133
100 A=207:FORK=1TO3:X=.
105 FORJ=1TO3:READB:READC:READD:X=X+B+C+D:POKEC,B:POKED,A:NEXT
110 READE:IFX<>ETHENPRINT"ERROR IN DATA LINE"PEEK(64)*256+PEEK(63)
115 X=.:NEXT
150 DATA143,37748,37749,141,37783,37784,238,37824,37825,227235
155 DATA238,37861,37862,141,37869,37870,141,38076,38077,228135
160 DATA142,38082,38083,143,38086,38091,222,40826,40827,234502
590 :
595 REM *** SAVE ML ***
600 PRINT"SAVING SCREENS C"
605 POKE780,8:POKE781,8:POKE782,255:SYS65466
610 N$="0:SCREENS C,P,W"
615 L=LEN(N$):FORJ=1TOL:POKE849+J,ASC(MID$(N$,J,1)):NEXT
620 POKE780,L:POKE781,82:POKE782,3:SYS65469
635 POKE251,59:POKE252,147
645 POKE780,251:POKE781,124:POKE782,159:SYS65496
650 IFSTTHENGOTO700
655 PRINT"SCREENS C SAVED":STOP
660 :
695 REM *** READ ERROR CHANNEL ***
700 OPEN15,8,15
705 INPUT#15,A,A$,B,C
710 PRINTA,A$,B,C
715 CLOSE15:STOP